Class {
	#name : 'AbstractEnvironmentTestCase',
	#superclass : 'TestCase',
	#instVars : [
		'testingEnvironment'
	],
	#category : 'SUnit-Core-Kernel',
	#package : 'SUnit-Core',
	#tag : 'Kernel'
}

{ #category : 'testing' }
AbstractEnvironmentTestCase class >> isAbstract [

	^self = AbstractEnvironmentTestCase
]

{ #category : 'accessing' }
AbstractEnvironmentTestCase >> environmentOfTest [
	^ testingEnvironment
]

{ #category : 'running' }
AbstractEnvironmentTestCase >> setUp [
	super setUp.
	testingEnvironment := Smalltalk globals
]

{ #category : 'accessing' }
AbstractEnvironmentTestCase >> testingEnvironment: anObject [
	testingEnvironment := anObject
]
